home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD019c.dsk / SOFTGRAPH.DEMO.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  46 lines
  1. 10 D$ =  CHR$(4):UNPACK = 24576:LOC = 24831
  2. 15  POKE 230,32
  3. 20  TEXT : HOME : VTAB 10: HTAB 13: PRINT "ANNOUNCING..."
  4. 30  PRINT D$;"BLOAD UNPACK"
  5. 40  PRINT D$;"BLOAD LOGO.PAC"
  6. 50  GOSUB 500
  7. 60 D = 500: GOSUB 600
  8. 70  HOME : VTAB 5: PRINT "     THE SOFTGRAPH GRAPHING SYSTEM": PRINT : PRINT "APPEARED IN THE JANUARY THROUGH APRIL": PRINT : PRINT "ISSUES OF SOFTALK MAGAZINE. SOFTALK": PRINT : PRINT "OFFERED IT TO ITS READERS ON DISK FOR": PRINT : PRINT "EIGHT DOLLARS. TO MAKE IT AS EASY TO GET"
  9. 80  PRINT "AS IT IS TO USE, SOFTDISK IS OFFERING": PRINT : PRINT "SOFTGRAPH AT THE SAME EIGHT DOLLAR": PRINT : PRINT "PRICE TO ITS READERS. JUST SEND IN THE": PRINT : PRINT "MONEY WITH YOUR RETURNED MAILER."
  10. 85  TEXT 
  11. 90  VTAB 24: POKE  -16368,0: PRINT "HIT A KEY TO CONTINUE:";: GET A$
  12. 100  HOME : VTAB 7: PRINT "     HERE ARE SOME EXAMPLES OF GRAPHS": PRINT : PRINT "CREATED WITH SOFTGRAPH. THE SYSTEM CAN": PRINT : PRINT "DO PIE CHARTS IN BLACK AND WHITE..."
  13. 110  PRINT D$;"BLOAD CHART.1.PAC"
  14. 120 D = 500: GOSUB 600: GOSUB 500
  15. 130 D = 400: GOSUB 600: HOME 
  16. 140  VTAB 9: PRINT "     ...OR IN COLOR.": TEXT 
  17. 150  PRINT D$;"BLOAD CHART.2.PAC"
  18. 160 D = 200: GOSUB 600: GOSUB 500
  19. 170 D = 400: GOSUB 600: HOME 
  20. 180  VTAB 7: PRINT "     EVEN IF YOU HAVE A COLOR MONITOR,": PRINT : PRINT "THE BLACK AND WHITE CAPABILITY WILL BE": PRINT : PRINT "USEFUL WHEN YOU PRINT OUT THE CHARTS.*": PRINT : PRINT "     BAR AND LINE CHARTS AND BE DONE": PRINT : PRINT "INDEPENDENTLY OF ONE ANOTHER OR MIXED.": PRINT 
  21. 190  PRINT "LIKE THE PIE CHARTS, THEY CAN BE": PRINT : PRINT "CREATED IN BLACK AND WHITE...": VTAB 24: PRINT "* PRINTER DUMP PROGRAM NOT INCLUDED."
  22. 195  TEXT 
  23. 200  PRINT D$;"BLOAD CHART.3.PAC"
  24. 210 D = 800: GOSUB 600: GOSUB 500
  25. 215 D = 350: GOSUB 600
  26. 220  HOME : VTAB 9: PRINT "     ...OR IN COLOR.": TEXT 
  27. 230  PRINT D$;"BLOAD CHART.4.PAC"
  28. 240 D = 200: GOSUB 600: GOSUB 500
  29. 250 D = 400: GOSUB 600
  30. 260  HOME : VTAB 7: PRINT "     REMEMBER, TO GET THE SOFTGRAPH": PRINT : PRINT "SYSTEM ON DISK, SEND EIGHT DOLLARS TO": PRINT : PRINT "SOFTDISK."
  31. 270  VTAB 23: PRINT "PRESS ESCAPE TO SEE THIS DEMO AGAIN OR": PRINT "RETURN TO GO BACK TO THE MENU.";
  32. 280  TEXT 
  33. 290  GET A$: IF A$ < > CHR$(27)  AND A$ < > CHR$(13)  THEN 290
  34. 300  IF A$ =  CHR$(27)  THEN  GOTO 10
  35. 310  PRINT  CHR$(13); CHR$(4);"RUN KICK.IT.OFF"
  36. 500  REM  UNPACK AND DISPLAY
  37. 510  POKE 0,LOC -( INT(LOC/256) *256): POKE 1, INT(LOC/256)
  38. 520  CALL UNPACK
  39. 530  POKE  -16302,0: POKE  -16297,0: POKE  -16304,0
  40. 540  RETURN 
  41. 600  REM  DELAY LOOP
  42. 605  POKE  -16368,0
  43. 610  FOR DL = 1 TO D
  44. 620  IF  PEEK( -16384) >127  THEN  POKE  -16368,0:DL = D
  45. 630  NEXT DL
  46. 640  RETURN